select random element from list in r